﻿Imports ASAP.InterfazNegocio

Public Class frmEstadisticas

    Private ucTotales As usrTotales
    Private ucLibro As usrLibro
    Private ucLecciones As usrLecciones
    Private ucSecciones As usrSecciones

    Public Sub inicializa(ByVal Nivel As String)
        Dim TotalPreguntas, TotalPreguntasContestadas As Integer
        Dim EstadTotales As InterfazNegocio.EstadResultado = Nothing
        Dim EstadSecciones As Dictionary(Of String, InterfazNegocio.EstadResultado) = Nothing
        Dim EstadLecciones As Dictionary(Of InterfazNegocio.EstadClaveLeccion, InterfazNegocio.EstadResultado) = Nothing
        Dim EstadLibros As Dictionary(Of InterfazNegocio.EstadClaveLibro, InterfazNegocio.EstadResultado) = Nothing
        Agente.DameEstadisticas(Nivel, TotalPreguntas, TotalPreguntasContestadas, _
                                EstadTotales, EstadSecciones, EstadLecciones, _
                                EstadLibros, Nothing)

        ucTotales = New usrTotales
        ucTotales.inicializa(EstadTotales, TotalPreguntas, TotalPreguntasContestadas)

        ucLibro = New usrLibro
        ucLibro.inicializa(EstadLibros)

        ucLecciones = New usrLecciones
        ucLecciones.inicializa(EstadLecciones)

        ucSecciones = New usrSecciones
        ucSecciones.inicializa(EstadSecciones)

        BorderEstad.Child = ucTotales

    End Sub

    Private Sub lblTotal_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles lblTotal.MouseUp
        BorderEstad.Child = ucTotales
    End Sub

    Private Sub lblLibro_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles lblLibro.MouseUp
        BorderEstad.Child = ucLibro
    End Sub

    Private Sub lblSeccion_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles lblSeccion.MouseUp
        BorderEstad.Child = ucSecciones
    End Sub

    Private Sub lblLeccion_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles lblLeccion.MouseUp
        BorderEstad.Child = ucLecciones
    End Sub
End Class
